home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / E / Goportscan_src.lha / GoPortscan_Src / prefs.e < prev    next >
Encoding:
Text File  |  2003-02-02  |  4.5 KB  |  193 lines
  1. OPT MODULE
  2.  
  3. /*
  4.     Description: Functions for dealing with preferences
  5. */
  6.  
  7.  
  8. MODULE 'dos/dos'
  9.  
  10. DEF fh,
  11.     host,
  12.     ports,
  13.     log,
  14.     telnet,
  15.     time,
  16.     read,
  17.     verbose,
  18.     wakeup,
  19.     trojan,
  20.     ftp,
  21.     web,
  22.     other,
  23.     ping,
  24.     ser
  25.  
  26. EXPORT PROC loadprefs()
  27. host:=String(81)
  28. ports:=String(200)
  29. log:=String(150)
  30. telnet:=String(150)
  31. time:=String(5)
  32. read:=String(5)
  33. verbose:=String(5)
  34. wakeup:=String(5)
  35. trojan:=String(5)
  36. ftp:=String(150)
  37. web:=String(150)
  38. other:=String(150)
  39. ping:=String(5)
  40. ser:=String(5)
  41.  
  42. ->Spaces at the end of strings are important
  43.  
  44. IF (fh:=Open('envarc:goportscan.prefs', MODE_OLDFILE))<>0
  45.     IF (Fgets(fh, host, 81))=NIL THEN StrCopy(host, 'localhost ')
  46.     IF (Fgets(fh, ports, 200))=NIL THEN StrCopy(ports, '7,9,11,13,15,17,19-21,23,25,37,79-80,110,137-139 ')
  47.     IF (Fgets(fh, log, 150))=NIL THEN StrCopy(log, 'ram:goportscan.log ')
  48.     IF (Fgets(fh, telnet, 150))=NIL THEN StrCopy(telnet, 'miamitelnet %h %p ')
  49.     IF (Fgets(fh, time, 5))=NIL THEN StrCopy(time, '2 ')
  50.     IF (Fgets(fh, read, 5))=NIL THEN StrCopy(read, '0 ')
  51.     IF (Fgets(fh, verbose, 5))=NIL THEN StrCopy(verbose, '1 ')
  52.     IF (Fgets(fh, wakeup, 5))=NIL THEN StrCopy(wakeup, '0 ')
  53.     IF (Fgets(fh, trojan, 5))=NIL THEN StrCopy(trojan, '0 ')
  54.     IF (Fgets(fh, ftp, 150))=NIL THEN StrCopy(ftp, 'miamiftp %h %p ')
  55.     IF (Fgets(fh, web, 150))=NIL THEN StrCopy(web, 'aweb %h %p ')
  56.     IF (Fgets(fh, other, 150))=NIL THEN StrCopy(other, 'other %h %p ')
  57.     IF (Fgets(fh, ping, 5)) = NIL THEN StrCopy(ping, '16 ')
  58.     IF (Fgets(fh, ser, 5)) = NIL THEN StrCopy(ser, '1 ')
  59.     Close(fh)
  60. ELSE
  61.     StrCopy(host, 'localhost ')
  62.     StrCopy(ports, '7,9,11,13,15,17,19-21,23,25,37,79-80,110,137-139 ')
  63.     StrCopy(log, 'ram:goportscan.log ')
  64.     StrCopy(telnet, 'miamitelnet %h %p ')
  65.     StrCopy(time, '2 ')
  66.     StrCopy(read, '0 ')
  67.     StrCopy(verbose, '1 ')
  68.     StrCopy(wakeup, '0 ')
  69.     StrCopy(trojan, '0 ')
  70.     StrCopy(ftp, 'miamiftp %h %p ')
  71.     StrCopy(web, 'aweb-ii URL=http://%h:%p ')
  72.     StrCopy(other, 'vva H=%h P=%p ')
  73.     StrCopy(ping, '16 ')
  74.     StrCopy(ser, '1 ')
  75. ENDIF
  76.  
  77. host[StrLen(host)-1]:=NIL
  78. ports[StrLen(ports)-1]:=NIL
  79. log[StrLen(log)-1]:=NIL
  80. telnet[StrLen(telnet)-1]:=NIL
  81. time[StrLen(time)-1]:=NIL
  82. read[StrLen(read)-1]:=NIL
  83. verbose[StrLen(verbose)-1]:=NIL
  84. wakeup[StrLen(wakeup)-1]:=NIL
  85. trojan[StrLen(trojan)-1]:=NIL
  86. ftp[StrLen(ftp)-1]:=NIL
  87. web[StrLen(web)-1]:=NIL
  88. other[StrLen(other)-1]:=NIL
  89. ping[StrLen(ping)-1]:=NIL
  90. ser[StrLen(ser)-1]:=NIL
  91. ENDPROC
  92.  
  93. EXPORT PROC getprefs_host()
  94. ENDPROC host
  95.  
  96. EXPORT PROC getprefs_ports()
  97. ENDPROC ports
  98.  
  99. EXPORT PROC getprefs_log()
  100. ENDPROC log
  101.  
  102. EXPORT PROC getprefs_telnet()
  103. ENDPROC telnet
  104.  
  105. EXPORT PROC getprefs_time()
  106. ENDPROC Val(time)
  107.  
  108. EXPORT PROC getprefs_read()
  109. ENDPROC Val(read)
  110.  
  111. EXPORT PROC getprefs_verbose()
  112. ENDPROC Val(verbose)
  113.  
  114. EXPORT PROC getprefs_wakeup()
  115. ENDPROC Val(wakeup)
  116.  
  117. EXPORT PROC getprefs_trojan()
  118. ENDPROC Val(trojan)
  119.  
  120. EXPORT PROC getprefs_ftp()
  121. ENDPROC ftp
  122.  
  123. EXPORT PROC getprefs_web()
  124. ENDPROC web
  125.  
  126. EXPORT PROC getprefs_other()
  127. ENDPROC other
  128.  
  129. EXPORT PROC getprefs_ping()
  130. ENDPROC ping
  131.  
  132. EXPORT PROC getprefs_service()
  133. ENDPROC Val(ser)
  134.  
  135.  
  136. EXPORT PROC saveprefs(o_host, o_ports, o_log, o_telnet, o_time, o_read, o_verbose, o_wakeup, o_trojan, o_ftp, o_web, o_other, o_ping, o_service)
  137. DEF envarcfh,
  138.     temp
  139.  
  140.     temp:=String(5)
  141.  
  142.     IF (envarcfh:=Open('envarc:goportscan.prefs', MODE_NEWFILE))<>0
  143.  
  144.         Write(envarcfh, o_host, StrLen(o_host))
  145.         Write(envarcfh,'\n',1)
  146.  
  147.         Write(envarcfh, o_ports, StrLen(o_ports))
  148.         Write(envarcfh,'\n',1)
  149.  
  150.         Write(envarcfh, o_log, StrLen(o_log))
  151.         Write(envarcfh,'\n',1)
  152.  
  153.         Write(envarcfh, o_telnet, StrLen(o_telnet))
  154.         Write(envarcfh,'\n',1)
  155.  
  156.         StringF(temp,'\d\n',o_time)
  157.         Write(envarcfh, temp, StrLen(temp))
  158.  
  159.         StringF(temp,'\d\n',o_read)
  160.         Write(envarcfh, temp, StrLen(temp))
  161.  
  162.         StringF(temp,'\d\n',o_verbose)
  163.         Write(envarcfh, temp, StrLen(temp))
  164.  
  165.         StringF(temp,'\d\n',o_wakeup)
  166.         Write(envarcfh, temp, StrLen(temp))
  167.  
  168.         StringF(temp,'\d\n', o_trojan)
  169.         Write(envarcfh, temp, StrLen(temp))
  170.  
  171.         Write(envarcfh, o_ftp, StrLen(o_ftp))
  172.         Write(envarcfh,'\n',1)
  173.  
  174.         Write(envarcfh, o_web, StrLen(o_web))
  175.         Write(envarcfh,'\n',1)
  176.  
  177.         Write(envarcfh, o_other, StrLen(o_other))
  178.         Write(envarcfh,'\n',1)
  179.  
  180.         Write(envarcfh, o_ping, StrLen(o_ping))
  181.         Write(envarcfh,'\n',1)
  182.  
  183.         StringF(temp,'\d\n',o_service)
  184.         Write(envarcfh, temp, StrLen(temp))
  185.  
  186.         Close(envarcfh)
  187.     ELSE
  188.         WriteF('Unable to save preferences to ENVARC:\n')
  189.     ENDIF
  190.  
  191. ENDPROC
  192.  
  193.